﻿Public Class Form10

    Private Sub Form10_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'CADISDataSet.V1004' table. You can move, or remove it, as needed.
        Me.V1004TableAdapter.Fill(Me.CADISDataSet.V1004)


        Me.Size = My.Settings.Form10Size
        FormPos(My.Settings.Form10Pos)
        Me.Location = My.Settings.Form10Pos



        'TODO: This line of code loads data into the 'CADISDataSet.V1001' table. You can move, or remove it, as needed.
        Me.V1004TableAdapter.Fill(Me.CADISDataSet.V1004)

        Me.CrystalReport42.SetDataSource(Me.CADISDataSet)

        ' Me.CRV.SelectionFormula = "{AUF.Auftragsnummer} like '70038349'"

        Me.CRV1.ReportSource = Me.CrystalReport42
        Me.CRV1.RefreshReport()


    End Sub

    Private Sub CrystalReport41_InitReport(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub
End Class